home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / XCO212P.ZIP / ISODEF / textio.def < prev    next >
Encoding:
Modula Definition  |  1994-12-22  |  2.2 KB  |  56 lines
  1. DEFINITION MODULE TextIO;
  2.  
  3.   (* Input and output of character and string types over specified channels.
  4.      The read result is of the type IOConsts.ReadResults.
  5.   *)
  6.  
  7. IMPORT IOChan;
  8.  
  9.   (* The following procedures do not read past line marks *)
  10.  
  11. PROCEDURE ReadChar (cid: IOChan.ChanId; VAR ch: CHAR);
  12.   (* If possible, removes a character from the input stream cid and assigns the
  13.      corresponding value to ch.  The read result is set to the value allRight, endOfLine, or
  14.      endOfInput.
  15.   *)
  16.  
  17. PROCEDURE ReadRestLine (cid: IOChan.ChanId; VAR s: ARRAY OF CHAR);
  18.   (* Removes any remaining characters from the input stream cid before the next line mark,
  19.      copying to s as many as can be accommodated as a string value. The read result is set
  20.      to the value allRight, outOfRange, endOfLine, or endOfInput.
  21.   *)
  22.  
  23. PROCEDURE ReadString (cid: IOChan.ChanId; VAR s: ARRAY OF CHAR);
  24.   (* Removes only those characters from the input stream cid before the next line mark that
  25.      can be accommodated in s as a string value, and copies them to s.  The read result is
  26.      set to the value allRight, endOfLine, or endOfInput.
  27.   *)
  28.  
  29. PROCEDURE ReadToken (cid: IOChan.ChanId; VAR s: ARRAY OF CHAR);
  30.   (* Skips leading spaces, and then removes characters from the input stream cid before the
  31.      next space or line mark, copying to s as many as can be accommodated as a string value.
  32.      The read result is set to the value allRight, outOfRange, endOfLine, or endOfInput.
  33.   *)
  34.  
  35.   (* The following procedure reads past the next line mark *)
  36.  
  37. PROCEDURE SkipLine (cid: IOChan.ChanId);
  38.   (* Removes successive items from the input stream cid up to and including the next line
  39.      mark, or until the end of input is reached.  The read result is set to the value
  40.      allRight, or endOfInput.
  41.   *)
  42.  
  43.   (* Output procedures *)
  44.  
  45. PROCEDURE WriteChar (cid: IOChan.ChanId; ch: CHAR);
  46.   (* Writes the value of ch to the output stream cid. *)
  47.  
  48. PROCEDURE WriteLn (cid: IOChan.ChanId);
  49.   (* Writes a line mark to the output stream cid. *)
  50.  
  51. PROCEDURE WriteString (cid: IOChan.ChanId; s: ARRAY OF CHAR);
  52.   (* Writes the string value in s to the output stream cid. *)
  53.  
  54. END TextIO.
  55.  
  56.